Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Робота з масивами. Використання процедур та функцій

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних технологій, автоматики та метрології
Факультет:
Не вказано
Кафедра:
Захист інформації

Інформація про роботу

Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Алгоритмічні мови і програмування
Група:
ІБ
Варіант:
12

Частина тексту файла

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра „ЗАХИСТ ІНФОРМАЦІЇ” ЗВІТ до лабораторної роботи №3 З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ” на тему: „Робота з масивами. Використання процедур та функцій” Варіант № 12 Виконав: студент групи ІБ – 1 Львів – 2006 2. ПОВНИЙ ТЕКСТ ЗАВДАННЯ Написати програму алгоритмічною мовою Турбо-Паскаль для впорядкування елементів стовпців матриці за спаданням їх значень методом обміну. 0 2 -2 89 21 -1 -4 36 41 71 56 93 51 -2 -51 1 3 -8 0 9 23 41 5 8 -2 Для відсортованої матриці знайти значення функції fi(aij) – середнє геометричне значення елементів в кожному рядку над головною діагоналлю матриці та F(fi(aij)) – сума fi(aij). Обчислення fi(aij) оформити у вигляді функції; елементи матриці вводити з клавіатури; програма повинна вивести на екран відсортовану матрицю, всі значення fi(aij) та значення функції F(fi(aij)). 3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ Блок-схема функції sGom(i) Блок-схема підпрограми PrintMas Блок-схема підпрограми Sort 4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ n – константа розмірності матриці; aij – прямокутний масив змінних типу integer розмірністю n•n для зберігання введених даних та результату роботи програми; r, s – змінні типу byte для зберігання проміжних даних; sum – змінна типу real для зберігання суми середніх геометричних значень рядків над головною діагоналлю; j, k, i, x, dob, sg – змінні для зберігання проміжних значень у процедурах та функціях; clrscr – процедура очистки екрана яка об’явлена в модулі crt; readkey – процедура яка очікує натискання будь-якої клавіші; Sort, PrintMas – користувацькі процедури відповідно для впорядкування масиву та виведення значень елементів масиву на екран; sGeom(x) – користувацька функція яка повертає середнє геометричне значення елементів масиву х-го рядка які знаходяться над головною діагоналлю; writeln – процедура виведення текстових повідомлень і значень змінних на екран; readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній; exp(x) – функція яка обчислює експоненту числа; ln(x) – функція для обчислення натурального логарифму числа x; cos(x) – функція знаходження косинуса кута x заданого в радіанах; abs(x) – функція яка повертає значення модуля змінної x. mod – операція для знаходження остачі від ділення. 5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ program SortMas; uses crt; const n=5; type mas=array [1..n,1..n] of integer; var a:mas; r,s:byte; sum:real; {=============================================} function sGeom(i:byte):real; var j:byte; dob,sg:real; begin dob:=1; for j:=i+1 to n do dob:=dob*a[i,j]; sg:=exp(1/(n-i)*ln(abs(dob))); if (dob<0) and ((n-i) mod 2=1) then sg:=-sg; sum:=sum+sg; sGeom:=sg; end; {=============================================} procedure PrintMas; var i,j:byte; begin for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end; {=============================================} procedure Sort; var x:integer; k,i,j:byte; begin for k:=1 to n do for i:=2 to n do for j:=n downto i do if a[j,k]>a[j-1,k] then begin x:=a[j-1,k]; a[j-1,k]:=a[j,k]; a[j,k]:=x; end; end; {=============================================} begin clrscr; writeln('Vvedit matrix A (rozmir ',n,'x',n,'):'); for r:=1 to n do for s:=1 to n do begin write('a[',r,',',s,']:= '); readln(a[r,s]); end; writeln; Writeln('Vvedeno matrix A:'); PrintMas; Sort; writeln('Rezultatu robotu programu, Matrix A:'); writeln; PrintMas; sum:=0; for r:=1 to n-1 do writeln('Seredne geom radka ',r,':',sGeom(r):3:2); writeln; writeln('Suma = ',Sum:3:2); readkey; end. 6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ Vvedit matrix A (rozmir 5x5): a[1,1]:= 0 a[1,2]:= 2 a[1,3]:= -2 a[1,4]:=...
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини